﻿Public Class ClsUcnGridUnboundItemBasic
    'represents basic TreeList row in UcnGridUnbound usercontrol

#Region "Attributes"
#Region "Private attributes"
    Private MbEnabled As Boolean 'enabled/disabled
    Private MbSelected As Boolean 'selected
    Private MiRowID As Integer 'row ID
    Private MiParentRowID As Integer 'parent row ID
#End Region
#End Region
#Region "Constructors"
    Public Sub New(ByVal IiRowID As Integer, ByVal IiParentRowID As Integer, ByVal IbEnabled As Boolean, ByVal IbSelected As Boolean)
        MiRowID = IiRowID
        MiParentRowID = IiParentRowID
        MbEnabled = IbEnabled
        MbSelected = IbSelected
    End Sub
#End Region

    'PROPERTIES WITH NAME "RowID" AND "ParentRowID" ARE UNIQUE IDENTIFIERS FOR TREELIST AND THESE COLUMNS ARE INVISIBLE IN TREELIST IF THEY ARE SET TO PROPERTIES KeyFieldName and ParentFieldName PROPERTIES OF TREELIST
#Region "Properties"
#Region "Public properties"
    Public Property Enabled() As Boolean
        Get
            Return MbEnabled
        End Get
        Set(ByVal IbValue As Boolean)
            MbEnabled = IbValue
        End Set
    End Property
    Public Property Selected() As Boolean
        Get
            Return MbSelected
        End Get
        Set(ByVal IbValue As Boolean)
            MbSelected = IbValue
        End Set
    End Property
    Public Property RowID() As Integer
        Get
            Return MiRowID
        End Get
        Set(ByVal IiValue As Integer)
            MiRowID = IiValue
        End Set
    End Property
    Public Property ParentRowID() As Integer
        Get
            Return MiParentRowID
        End Get
        Set(ByVal IiValue As Integer)
            MiParentRowID = IiValue
        End Set
    End Property
#End Region
#End Region

End Class